home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / paslib.arc / TIME.INC < prev   
Text File  |  1986-11-02  |  318b  |  17 lines
  1. TYPE
  2.      TIME = RECORD
  3.                HOURS,MINUTES,SECONDS,HUNDREDTHS : INTEGER; END;
  4.  
  5. VAR
  6.    T : TIME;
  7. PROCEDURE GETTIME(VAR T: TIME);
  8. BEGIN
  9.      R.AX := $2C00;
  10.      MSDOS (REGS);
  11.      T.HOURS := HI(R.CX);
  12.      T.MINUTES := LO(R.CX);
  13.      T.SECONDS := HI(R.DX);
  14.      T.HUNDREDTHS:= LO(R.DX);
  15. END;
  16.  
  17.